home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.07 Jul 90 / Data Exchange ƒ / Driver.mod < prev    next >
Encoding:
Text File  |  1989-01-19  |  512 b   |  24 lines  |  [TEXT/MPS ]
  1. MODULE Driver;
  2.  
  3. FROM Test IMPORT
  4.    (*vars*) a, b, c,
  5.     (*procs*) Initialize, GetVal;
  6. FROM InOut IMPORT
  7.    (*procs*) WriteString, WriteLn, WriteInt;
  8.         
  9. BEGIN
  10.    a := 3; b := 30; c:= 300;
  11.     WriteString ("Values set directly:");
  12.     WriteInt (a, 4);
  13.     WriteInt (b, 4);
  14.     WriteInt (c, 4);
  15.     WriteLn();
  16.     
  17.     Initialize (107);
  18.     WriteString ("Value set indirectly to 107 is  ");
  19.     WriteInt (GetVal(), 1);
  20.     WriteLn();
  21. END Driver.=1 to the number of background buttons
  22. put "true" & return after field "checks"
  23. end repeat
  24. end newCar